home *** CD-ROM | disk | FTP | other *** search
/ Simtel 10,000 MSDOS Shareware Programs / Simtel - 10000 MSDOS Shareware Programs (Walnut Creek)(January 1995)(Disc 2).ISO / disc2 / basic / prtsc.bas < prev    next >
Encoding:
BASIC Source File  |  1989-03-16  |  357 b   |  9 lines
  1. 10000 ' print the screen
  2. 10010 DEF SEG                       'set segment to BASIC's data segment
  3. 10020 PRTSCCODE! = 0                'allocate four bytes of memory
  4. 10030 PRTSC = VARPTR(PRTSCCODE!)    'find out where it is
  5. 10040 POKE prtsc, &HCD              'put the code into the memory
  6. 10050 POKE prtsc + 1, 5
  7. 10060 POKE prtsc + 2, &HCB
  8. 10080 CALL PRTSC
  9.